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ZTITLE ‘ED 1b tin a - Call EDTSPRPARCOM from EDTSEXTE 


1: 
-Sep-1984 9}: 
T 
MODULE EDTSPRPARCOMN ( ' Call 


na” 


es = 'v04-000" le: PRPARCOMN.BLI Edit 
BEGIN 
PITITITITITILI LILI LLL iii iii ili lili 
'@ ® 
‘® COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
:* ALL RIGHTS RESERVED. ; 
is re hb +e FURNISHED wee a ‘om AND MAY BE USED AND gt ht * 
'® ON WITH SUCH LICENSE AND WITH T * 
1 INCLUSION OF OTHE ABOVE COPYRIGHT NOTICE, THIS SOFTWARE OR ANY OTH ER * 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
i. TRANSFERRED. ~ 
ie pi ote IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
if SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* CORPORATION. - 
if 
'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
ie * 
* 


SRR ReRRRAAAAAAAAAAAEAAAAAARAAEAAERETA ARETE ee eee et TRAAARATAEARAAAAAARARARARARAAEE 
! 

lee 

' FACILITY: EDT -- The DEC Standard Editor 

ABSTRACT: 


Call EDTSPRPARCOM from EDTSEXTEND, then make sure EDTSEXTEND 
is in memory before returning. 


i 
' 
i 
i 
i 
i 
i 
ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: John Sauter, CREATION DATE: March 16, 1982 
MODIFIED BY: 

i 

i 

le 


1-001 = Original. JBS 16-Mar-1982 
1-002 - Improve the appearance of the Listing. JBS 17-Jun-1983 


N.BLI; 


: JBS1002 


EDT! 
V04: 


F R 
EDTSPRPARCOMN EDTSPRPARCOMN = Call EDTSPRPARCOM from EDTSEXTE 16-Sep 4 01:21:1 AX-11 Bliss-32 V4.0-742 Pp 
FO42000 Declarations 14-Sep 71882 93: g} 18 EDT SREIPREARCOMN: BLI 4 — (28 


———eeee 


3 20 R°8 } XSBTTL ‘Declarations’ 

; 38 93] | TABLE OF CONTENTS: 

: 4 0938 1 

; 55 034 REQUIRE "EDTSRC:TRAROUNAM'; | 
; $ be9a 1 FORWARD ROUTINE 

: 28 0495 1 EDTSSPA_CMD_NOOVERLAY; 
: 9 0496 1 

: 60 497 1! | 
; «61 498 1 ' INCLUDE FILES: 
; 6¢ 499 1! 

; 6 0500 1 

> 664 9501 1 REQUIRE "EDTSRC:EDTREQ'; 

; «65 0636 1 

; 66 0637 . 7 

; 67 638 1 ! MACROS: 

; | «668 0639 1! 

; 669 0640 1! NONE 

; 70 0641 1! 

ahs 0648 1 ' EQUATED SYMBOLS: 

eS. 0643 1! 

‘ian 0644 1! NONE 

oe 0645 1! 

Bg 0646 1 | OWN STORAGE: 

; 676 0647 1! 
i 0648 1! NONE 
: «78 0649 1! 

2, 0650 1 ! EXTERNAL REFERENCES: 

; 80 0651 1! 

; 81 0652 1! In the routine | 


“" 

3 | 
EDTSPRPARCOMN EDTSPRPARCOMN - Call EDTSPRPARCOM from EDTSEXTE 18-Sep-1984 93 :81:1 AX-11 Bliss-32 V4.0-74 Page 3| 
v04-000 EDTSSPA_CMD_NOOVERLAY = Call EDTSSPA_CMD from 14-Sep-1984 12:24:1 EDT.SRCJPRPARCOMN.BLI; (3) | 
: :? 634 } ZSBTTL "EDTSSPA_CMD_NOOVERLAY = Call EDTSSPA_CMD from EXTEND’ | 
3 Bs ° 5 } GLOBAL ROUTINE EDTSSPA_CMD_NOOVERLAY ! Call EDTSSPA_CMD from EXTEND | 
: 87 885 | | 
3 He o28 1 te4 | 
; 4 223 : FUNCTIONAL DESCRIPTION: | 
; wh 661 1! This routine is called by EXTEND to parse a command. It calls | 
: 3 Beeg 1! EDTSSPA_CMD using a synonym that the over Loy analyzer is told 
; F 0665 1! to ignore, then makes sure that EDTSEXTEND is in memory before 
; «494 0664 1! returning to it. 
3; 0665 1! 
: 9% 0666 1 | FORMAL PARAMETERS: | 
3; oF 0667 1! 
: 98 0668 1 | NONE 
; 0669 1! 
: 100 0670 1 ! IMPLICIT INPUTS: 
: 101 0671 1! 
3 Ie 0672 1! NONE 
s.. 0673 1! 
: 104 0674 1 ! IMPLICIT OUTPUTS: 
; 105 0675 1! 
> 106 0676 1! NONE 
3: 107 0677 1! 
: 108 0678 1 ! ROUTINE VALUE: 
; 109 0679 1! 
s 110 0680 1! 1 = parse was successful | 
36111 0681 1! 0 = parse failed, EDT$$G_PA_ERRNO set 
: Ve 0682 1! 
3; («11 0683 1 ! SIDE EFFECTS: 
3; (114 0684 1! 
3 6115 0685 1! MANY 
> 116 0686 1! 
; 1917 0687 1 !-- 
: «(118 0688 1 
: «119 0689 BEGIN 
: 120 0690 
: 1g 0691 EXTERNAL ROUTINE 
s Yee 069 EDTSSPA_CMD_NOOVERLAY REF ! Synonym for EDTSSPA_CMD | 
; 133 0693 EDTS$LOAD_ERTEND : NOVALUE; i Load module EDTSEXTEND into memory | 
: 125 0695 LOCAL | 
; 136 69 RET_STATUS; | 
; 128 0698 RET STATUS = EDTS$$PA_CMD_NOOVERLAY_REF (); | 
3 194 0699 EDTSSLOAD_EXTEND (); 
3 130 0700 RETURN (.RET_STATUS); | 
gs w3 0701 1 END; ! of routine EDTSSPA_CMD_NOOVERLAY 


-TITLE EDTSPRPARCOMN EDTS$SPRPARCOMN - Call EDTSPRPARCOM 
from EDTSEXTE 
-IDENT \V04-000\ 


.EXTRN EDTSSPA_CMD_NOOVERLAY_REF 
“EXTRN EDTSSLOAD_ERTEND 


3 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


0004 ENTRY EDTSSPA_CMD_NOOVERLAY, Save R2 
000000006 £ CALLS = #0, EDTSGPA CHD NOOVERLAY REF 
D MOVL RO, RET STATUS 
000000006 é § CALLS #0, EDTS$SLOAD EXTEND 
D 1 MOVL REf_STATUS, RO 
04 00016 RET 


; Routine Size: 23 bytes, Routine Base: _EDTSCODE + 0000 


2 0702 1 
3 0703 1 !<BLF/PAGE> 


GBISBBGPRCO™ — ERTEERRARCOMN GERI Ay EPISEREAREDM SegMcABTHERTE 18cSeec198t (1:31:19 YANG UABLbaRaRzoN-B07S% 


TSPRPARCOMN = Ca 


EDTSPRPARCOMN 
v04-000 


3 
LL_EDTSPRPARCOM from EDTSEXTE 1b-se “19 
TSSPA_CMD_NOOVERLAY = Call EDTSSPA_CMD from 14-Sep-19 


PSECT SUMMARY 


X-11 Bliss-32 V4.0-74 
DT.SRCJPRPARCOMN.BLI; 


! of module EDTSPRPARCOMN 


Bytes Attributes 
23 NOVEC,NOWRT, RD, EXE, SHR, 


Library Statistics 
pueneass Symbols oo-ce--- 


Total Loaded Percent 
RCJEDT.L32;1 377 0 0 
RCIPSECTS.L32;1 2 1 50 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACEBACK/LIS=L1S$:PRPARCOMN/OBJ=0BU$ 
RPARCOMN) 


23 code + 0 data bytes 
:08.7 


; Lines/CPU Min: 
; Lexemes/CPU-Min: 


11.2 
487 
12904 


51 pages 
tion Conpleee 


:PRPARCOMN MSRC$:PRPARCOMN.BLI/UPDATE=(ENHS:P 
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